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4051 . 463 1 and Zonic DMS 5003 teamwork results in easy-to-read graphs of analog data. 

Tektronix-Zonic Fast Fourier Transform (FFT), Data 
Acquisition and Analysis System 



by L. D. Mitchell 

Virginia Polytechnic Institute and State University 

Virginia Polytechnic Institute and State University has 
assembled a very powerful data acquisition and analysis 
system, using the TEKTRONIX 4051 Graphic System as 
a key component. Working with Tektronix and Zonic 
Technical Laboratories, the two-function system shown 
above was configured. This system's first function is easy 
acquisition of real-world analog data and conversion of 
that data into digital information understood by either 
microprocessors or large scale computers. The system 
also locally processes and analyzes time domain data. The 
4051 Graphic System and the Zonic Technical 
Laboratories High Speed Two Channel FFT share this 
second function. 

The Zonic unit performs any one of thirty-three frequen- 
cy domain type functions. Statistical data is handled 



expeditiously, because the forward Fourier transforms 
are computed in 50 milliseconds. Once the Zonic unit 
completes the requested frequency domain operation, the 
405 1 display plots the graphic result, in the form of a log- 
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log, log-linear, or linear-linear graph, labeled in engineer- 
ing units. Typical of such results might be a graph of the 
frequency response of a physical system, in both 
magnitude and phase. Any graphic display can be copied 
using the TEKTRONIX 4631 Hard Copy Unit included 
in the system. 

Besides displaying graphic results, the 405 1 is also used to 
handle analyses beyond the Zonic unit's capability. This 
can include data analysis that is outside the domain of the 
preprogrammed Zonic functions, and/or data analysis 
needs that go beyond the batch programming capability 
of the Zonic unit. For these cases, the system transfers 
either the data or a pre-analyzed frequency domain result 
to the 405 1's cartridge tape unit. The data can then be 
analyzed in any way desired, using the programmable 
capability of the TEKTRONIX 4051 Graphic System. 

As an example, consider amplitude time history data. 
This data cannot be analyzed for its amplitude probabili- 
ty density function by the Zonic High Speed FFT system. 



Binary Liquid-Vapor Boiling 
Point Diagrams 



An interactive graphic program is now available, written 
in 4051 BASIC, that produces diagrams of liquid-vapor 
boiling points. The program computes and plots the 
liquid and vapor composition curves as a function of 
temperature for any volatile two-component system. Dr. 
Gilbert F. Pollnow of the University of Wisconsin- 
Oshkosh developed the program with the support of both 
a unique faculty development funding program and a 
National Science Foundation grant. The NSF funding 
enabled the purchase of three TEKTRONIX 4051 
Graphic Systems with 32K memory, along with a Hard 
Copy Unit. This was all part of an interdisciplinary grant 
involving Chemistry, Physics, Geology and Geography. 

The Binary Liquid-Vapor Boiling Point Diagrams 
program plots both the ideal and Van Laar represen- 
tations for the liquid system. On the same plot is the 
experimental boiling point composition data: a sample 
plot is shown in Fig. 2. The points are plotted as they are 
generated, emphasizing the discrete and conjugate nature 
of the experimental and theoretical data. The program 
computes the Van Laar constants using the method 
described in F. Daniels' Experimental Physical 
Chemistry, which requires the composition and boiling 
point of the azeotrope, barometric pressure, and the 
Antoine vapor pressure constants for both pure com- 
ponents. Tabular output of the liquid and vapor com- 
positions (Fig. 3) is optional. As a tutorial, the program is 
set up to graph literature data for the acetonitile-water 
system if it is executed without modifying the parameters. 

Copyright « 1978. Tektronix. Inc. 
All fights reserved 



However, the datacan be transferred to the 405 1 Graphic 
System. This allows existing Plot 50 software, such as that 
in Statistics Volume I, to carry out that analysis. ^ 

Moreover, the 4051 can be programmed to operate on the 
data in any way desired. If the particular analysis requires 
a lot of number crunching, the raw data and/ or the pre- 
analyzed results may be transmitted out through the 
Option 1 RS-232 Interface to a large-scale computer. 
Virginia Polytechnic Institute and State University uses 
an IBM 370 configured with two model 158s. One 
machine is in batch operation with five megabytes of core; 
the other machine is interactive and has four megabytes of 
core. 

This configuration of two interlinked microprocessor- 
based systems, which are in turn linked to a large-scale 
computer, yields great flexibility in data analysis. This 
system also capitalizes on the inherent graphics capability 
of the 4051 Graphic System for the presentation of 
anaivsis results. >:^:^ »'?-^: 




4051 graphics relieve tedium and enhance understanding of 
complex chemistry problems in Dr. Gilbert F. Pollnow's class 
at the University of Wisconsin. 

At UWO physical chemistry students are required to 
calculate the Van Laar constants and the conjugate 
compositions corresponding to one of the tabular output 
points on their personal calculators for a known system. 
This reinforces their understanding of the computations 
prior to performing the laboratory experiment as describ- 
ed in the Daniels text. Inaddition,the Van Laar constants 
are alsodetermined by the students using the least squares 
method, and attempts are made to rationalize the 
differences. This experiment also provides an excellent 
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ACETOMITRILE-HATER LIOUID-UAPOR EQUILIBRIA 
FIGURE 2 
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opportunity to demonstrate the use of a software 
polynomial regression program for plotting and fitting 
their refractive index composition data and then using the 
resulting polynomial to compute the conjugate com- 
positions from their measured refractive indices. 

Dr. PoUnow has been involved with computer science and 
its practical applications on the university scene since 
1962. Enabled by university funding and the \SF gram. 
his recent endeavors focus upon improving and in- 
creasing computer use to solve ordinary chemical 
problems which would otherwise be too tedious or 
complex to include in the undergraduate program. 



From the original 1963-64 room-sized IBM machine to 
the new desk-top 405 1 Graphic systems, a gigantic leap in 
the capacity of the machine, as well as accessibility for the 
layman, has been achieved. The graphic ability of the 
405 1 display screen has made possible a host of solutions 
hitherto unavailable to most computer users. Using this 
advantage. Dr. Pollnow has created a number of 
autotutorial program modules for his students in physical 
chemistry classes. The popularity of such applications is 
evidenced by requests from scholars from both sides of 
the world for copies of his programs. Copies of this 
program with sample output are available from Dr. 
Pollnow upon request, fc:^^ : - 



) 



^ EDITOR'S NOTE 

New Catalog 

You will notice a new catalog of 4051 Applications 
Library programs enclosed with this issue of TEKniques. 
This catalog contains several new program categories and 
lots of new programs. Look through it. Additional copies 
are available for the asking. The 4051 Applications 
Library staff thanks all of you who contributed to the 
Library and made these additional programs available. 

Contest Finale 

By the time you read this, all of the entries in the 
Computer-Aided Design contest have been received and 
judged. Contest results will appear in the July issue of 
TEKniques; watch for the winning programs! 

51/00-8004/0 Documentation 
Contains 'Typo" 

In the Cross Reference and List Program Variables 
program there are typographical errors on page 4 of the 
documentation. Under Operating Hints, all references to 
"FS" should be changed to ^5", and ''JS" to "J5''. 



Hopefully this has not caused anyone anguish who 
purchased this program. Our thanks to John Williams of 
GTE Automatic Electric for pointing this out. 

Dashed Lines Combined 

Three subroutines for different methods of drawing 
dashed lines have been combined in a new Applications 
Library program entry. Check out Abstract No. 
51/00-'9508/ 1 in this issue, i^-^-^.^: 



Membership Card Enclosed 

It's free. Other than sunshine and air, not too many things 
are. But membership in the 4051 Applications Library is 
free for 4051 owners and users. Pass the enclosed 
membership cards along to those who borrow your 
TEKniques. They'll get their own copy of these bits of 
wisdom and your newsletter remains intact. Plus, more 
members mean more ideas — we'll all benefit. If you need 
more cards, call Rory Gugliotta at (503) 682-341 1, ext. 
2618. Sign up those friends of the '51. il^:^'^laj^:l 



Using Graphics Technology in Calculus 



by Edwin T. Hoefer 

Rochester Institute of Technology 

In many areas of science, a graphics demonstration in the 
classroom can clarify the instructor's complex point. The 
Rochester Institute of Technology uses the 4051 Graphic 
System to provide graphic classroom illustration of 
fundamental functions in calculus. For instance, the 4051 
can draw on the screen the interesting curves that are 
analyzed in a traditional calculus class. A particular 
technique of plotting the graphic display is used to 
dramatically illustrate the concept of "rate of change" of a 
function. 

The 4051 draws curves by small line segments, usually 
controlled by a FOR-NEXT, so that the x-axis in- 
crements are of constant size. This causes dx/dt to remain 
constant. Thus, the rate of change in the y-axis increments 
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of the curve, dy/dt - dy/dx. The ratio dx/dt is directly 
proportional to dy/dx, so the rate at which the curve is 
actually drawn on the display is a visual demonstration of 
the rate of change in dy/dt. 

Consider the familiar examples of y = x^ and y = x^ As 
these curves were drawn on the display, the class observed 
that it takes longer to draw the points close to (0,0) than to 
draw the rest of the curve. This corresponds to the fact 
that dy / dt = at the point (0,0). They also clearly saw that 
the larger the value of dy / dt, the faster the curve is drawn. 

Thus, the 405 1 display graphically illustrated the calculus 
concept of "rate of change'' for the class, through 
calculating and drawing the curves, i :-: ^-'^--^: 




m^ 




Overlays Expand Capability 

by Jay Beck 

How do you run a program larger than the memory 
capacity of your machine? Try the overlay technique 
using the 405 1 memory management capability combined 
with the 4907 FILE MANAGER. 

Create overlays by developing a program as a set of tasks 
to be performed. Write each task as if it were to be the 
only one in the machine. The tasks will be loaded (and 
later deleted) under the control of a small program that 
always remains in memory. Each task is called an 
"overlay" because it occupies the same memory as the 
preceding task. 

To see how the overlay technique is used, let's analyze an 
overlaid program comprised of three tasks. (In our 
example, the function of each task will be the same.) 

Three things must be considered in a numbering strategy. 
1) The line numbers must remain the same in key sections 
of the small program that loads the overlay. 2) Each 
overlay must begin with the same line number. 3) Each 
overlay's line numbers must lie within a known range. 



lOOOO GO '"O 30090 

•.lOOOO REM 

20010 REM 

30000 »£M 

30010 REM , M A i 
30020 =£-• •■ MAIN 
30030 -EM ^ .-- 
30040 SEM 

30050 REM 

30060 GQSUB 30220 
30070 jC to 20060 

30080 CEM-^ 

30090 INIT 
30100 •»»=• " 
30110 U=2 
30120. REM 
30130 REM 
30140 REM 

30150 REM r^f-Lcai 

30160 P««'^F•ROGRAM/0ULDl• 
,■^O17O GO TO 30060 
30180 REM ; 
30190 REM : 

30200 fiEM 

30210 REM 

30220 IF ?««=«» THEN 30230 
30230 DELETE 20020.29990 
•30240 Q^MEHQRY 
:!0250 CALL 'UNIT* »U 
30260 APPE^VD F«;20010.10 
30270 A«=«F« 
30290 RETURN 



--OVL — AREA 



-.Load OVL__ 



rtAIN PROGRAM 



LOAD OVL-_AftEA 
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Fig. 1. Numoering system for the mam program. 

The small controlling program (Fig. 1) is written so it can 
be renumbered starting at line 30080 (e.g., REN 30080,- 
10,30080). The sections of this program that are not to be 
disturbed are placed at the beginning. Thus, the main 
program can be developed and renumbered as new 
common routines are added. 

For our example, the overlays have line numbers from 
200 10 to 29990. This allows 998 lines of 405 1 BASIC to be 
written per overlay, using a Une number increment oi 10. 

As mentioned, the overlays are identical except for the 
title banner and the first line of the message displayed. 
Note that each overlay begins with a REMARK state- 
ment. This statement has the same line number as ar^ 
REMARK statement in the small controlling maiil_ 
program. Thus, each time the DELETE is done, a 
properly numbered line remains behind to serve as a 
target line in the next APPEND operation. 
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PRINT 
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PRINT 
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INPUT 
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CHOOSE NEXT OVERLAr* 
' OVLOl --I--' 
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0UL03 — 3--' 
• END --4—' 
ENTER OVERLAY CHOICE 



■4 THEN 2014 
IP 0=4 THEN 20240 
Ot-STR(O) 
0»-SEG(0».2. 10) 

REM Reauest+Tr 

F»« •(?PR0GRAM/0*-'L0* 10» 
GO TO 30060 

REM 

END 
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REM 

REM 

REM 

PAGE 

PRINT 
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PRINT 
PRINT 
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PRINT 
PRINT 
INPUT I 
IF 0- 1 
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• END 



NEXT 0' 



OR 0;-4 THEN 20140 
IF 0=4 THEN 20240 
0»»STR(0) 
Ot=SEG'0». 2.10) 

REM ReauestcTra^. 

F«x • 9PR0GRAM/0VL0 ' 10* 
GO TO 30060 

REM 

END 
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■ END --4--« 
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= RINT 

-RINT 

JOl 10 PRINT 

JO 120 PRINT 

J0130 PRINT 

J0140 PRINT 

20150 INPUT 

.0160 IF 0' 1 OR 0.>4 THEN 201 

JOl 70 IF 0=4 THEN 20240 

J0180 0»=>STR(0) 

20190 ai=SEG<0«.2. 10) 

J0200 REM Reauesttr 

20210 F*='(?PR0GRAM/0VL0' 40« 

J0220 GO TO 30060 

20230 REM 



40 END 



Fig. 2. Overlay numbering system. 

Line numbers 30210 to 30280 actually load the overlay, 
but only if it is not already resident in memory. 
Q-MEMORY is included to compress memory before 
the APPEND statement is executed. 

The GOTO in line 10000 transfers control to the initial 
statement in the overlay controller program at line 30090. 
bypassing the sensitively numbered section. Organizing 
the program in this manner also ensures that an overlaid 
program, terminated with an END or STOP statement, 
can be RUN again without reloading any part of it from 
the 4907. 

Figure 3 portrays the file structure created for the sample 
program. Using the desired overlay number (lines 20140- 
20190), the program dynamically builds a file name (line 
20210) which the system then requests for loading. 

When large programs are implemented as overlays, the 
4907 can be used to provide direct access and fast loading 
of program segments. Using such techniques allows 
powerful application programming systems to be built. 
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Fig. 3. 4907 file structure created for the sample program. 

Save Overlay On Correct File 

by Jay Beck 

In developing a large program using overlays, you will be 
doing repeated OLDs and SAVEs. In the first few lines of 
each overlay include as part of the REMARK statement 
the name of the file in which that overlay is to be stored. 
Then, take time to list these lines and check the name of 
the file to avoid mistakenly storing an overlay on the 
wrong tile. 



4051 Subroutine Linkage 

The GOSUB kev-word is a very powerful and useful 
feature in BASIC. However, this feature can occasionally 
lead to undesirable results if its use is not fully un- 
derstood. 

Each time a GOSUB statement is executed, six more 
bvtes of Random Access Memory is allocated to a push- 
down stack for the storage of return address pointers. In 
turn, each time a RETURN statement is executed, the 
stack is popped; allocated memory is then returned to the 
system. The stored return address is used to continue 
execution at the statement following the GOSUB. 

This procedure works very well until a program branches 
out of a subroutine, using a GO TO or an IF-THEN 
statement. If these branches out of the subroutine do not 
re-enter the subroutine or execute a RETURN statement, 
then the stack is not popped. Many iterations of this 
process of pushing the stack (with a GOSUB) and 
neglecting to pop the stack (with a RETURN) results in a 
gradual loss of memory and, eventually, a MEMORY 
FULL condition. 



Variable Names Take Same Bytes 

In a recent issue of TEKniques, it was suggested that using 
single character variables instead of two-character would 
save memory. While this holds true for many machines, it 
does not for the 4051. The 4051 is designed so that no 
additional space is required for a two-character name. 



Tracking Variables 

Up to your ears with paper and code? Can't find those 
chunks with your variable names? Get organized. Try one 
of the variable tables sent in by TEKniques readers. 

The first type of table is a form contributed by Bob Young 
of Tektronix. A handy program draws it on the 4662 
Plotter. Shown below is a working example. 
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UARtABLE TABLE- 



lea IHIT 

110 D-1 

128 PRINT 11,17:2,2 

139 PRINT 10,21:10.9,99 

Me PRINT to: '4051 BASIC 

150 PRINT »0, 21:13.8,93. 5 

160 PRINT »o: •program;- 

170 PRINT #0,21:13.67,93.3 

180 PRINT 10,20:13.67,5.75.125.2,5.73,125.2,93.3,9.6,93.3.9.6,5.75 
190 PRINT 10,20:13.67,5.75 
200 PRINT to, 21:11.5,2.7 
210 PRINT to: "REMARK:'} 
220 PRINT #0,21:26.9,5.75 
230 FOR 1-26.9 TO 127 STEP 17.872 
240 PRINT to, 21:1,5.75 

258 PRINT 10.20:1,93.3. 1+8. 936. 93. 3, 1+8.936, 5. 75 
260 NEXT I 

270 FOR 1-8.6 TO 88 STEP 6.596 
280 PRINT #0.21:125.2,1 

290 PRINT #0,20:9. 6, 1, 9. 6, 1+3. 298, 125. 2, 1 + 3. 298 
300 NEXT I 

310 OATA '9","8",-7","6",-5%'4-,"3*,"2%-r,"0",-b","f 
320 FOR 1-120 TO 14 STEP -8.936 
330 READ Al 
340 PRINT #0,21:1,91 
350 PRINT #0:Af 
360 NEXT I 

370 OATA *A*,-B","C",'0","E","F-,-C-,"N-,"I*,-J-,-K-,-L",-H- 
380 OATA 'N-.-O-,'?-, •Q•,"P","S•,"T^"U-,•U-,-U-,-X^"Y^-2• 
390 FOR 1-88.4 TO 5 STEP -3.298 
400 READ A» 

410 PRINT #0,21:11.32,1 
420 PRINT #0:At 
430 NEXT I 

The second type is in the form of a BASIC program. Ed 
Mitchell of Tektronix wrote the program that prints 
variable tables on the screen or to a line printer. Ed's 
program provides for String Variables, Simple Variables, 
and Function Variables. Examples and the program 
listing follow. 
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1 F-8 

2 SET l<EY 

3 GO TO 188 

4 RE!1 tt|[«<s«t«ttt«t«X« U-'D 1 LIST STRINGS tttt%t%x%ttttttXttt%ttt%ttt 

5 F-1 

€ PRINT #32.26:3 

7 GO TO 248 

8 REM ttxxxtttttttlttt U/(> 2 LIST SIMPLE MfiRIABLES %XtxXtXXtt%%tXXXXXX 

9 F«i 

18 PRINT ?32.26:3 

11 GO TO 388 

12 REM t«l«t<St;«tt<>«x U-D 3 LIST FUNCTIONS t%XXXXtXtttttt%tX%ttttXtX 

13 F»l 

14 PRINT e32.26:3 

15 CO TO 768 
188 PhiGE 

181 PRINT "ENTER DEUICE NUMBER FOR LINE PRINTER (48 OR 41), OR RETURN*; 

118 PRINT • FOR SCREEN. G" 

128 REMPRINT ?32,26:3 

138 INPUT Ht 

148 IF A«-" TNEN 198 

158 D»yAL(AI> 

168 IF 0-48 OR D>i4l THEN 288 

178 GO TO 188 

188 GO TO 288 

198 D-32 

288 PRINT 'PRESS RETURN FOR COMPLETE LIST OR PRESS USER DEFINABLE 1. l'\ 

218 PRINT * OR 3 FOR" 

228 PRINT "PARTIAL LISTS." 

238 INPUT A< 

248 REM i-" — I................... START STRING LIST--< 

258 PRINT fD:"l.* 

268 PRINT to:" STRINGSJJ- 

278 FOR N-63 TO 99 

28f B«-CHR(N> 

29« PRINT fD:Btl"«,,^ ^„,,- •! 

388 PRINT fOJ" LEN2Tfl< Tjj" 

318 NEXT N 

328 IF FOi TNEN 388 

338 REM ?>t F-1 IS THE USER OEFlNAiLC FLAG '''t 

348 Fo* 

358 PRINT #32.26:8 



( 



) 



369 

179 
380 
399 
499 
419 
429 
439 
449 
439 
469 
479 
489 
459 
389 
519 
529 
539 
549 
558 
568 
5^9 
589 
599 
688 
619 
629 
639 
649 
659 
669 
678 
689 
698 



EHO 

REH <........< 

PBIHT fO: "L* 

PRINT fo:" 

FOR M-65 TO 99 

B««CHR(H) 

PRINT tC»:B»r 

REH 

X-9 

Y-3 

GOSUB 678 

X-4 

Y-7 

GOSUB 679 

y.«8 

Y-9 

GOSUB 678 

REM 

REM 

REM 

QIH Q.M 

IF H>29 THEM 620 

IF D032 THEN 629 

COPY 

PAGE 

GO TO 629 

NEXT H 

IF FOl THEN 769 

F-9 

PRINT #32.26:9 

END 

FOR Nl-X TO Y 

C«-STR(N1 > 

C»-SEC>C$,2, 1 ■> 

PRINT 9D:BflC»J" 

NEXT HI 

PRINT *d: 

RETURN 

NEXT M 

PRINT 90: 

PRINT 90: 

PRINT pd; 

FOP 



STORT SIMPLE UPRIOBLE -•< 



GIN IS TO INSURE THftT COMPLETE UftRIABLES ARE PRINTED 
BY FORCING A PAGE FULL IF THERE ISNT ENOUGH ROOM. 



•JJ- 



'J* 

'0 98 STEP 3 



FUMC-I-IOHSJJ- 



799 FOR Nl«9 TO 2 
888 N2«H*H1 
819 IF M2'9e THEN 870 
' 8t = CHR'-H2/ 

PRINT 90: *'FH";8$J- 

NEXT Ml 

PRINT ?0:'JJ" 



838 

849 

858 
869 



NEXT M 

IF D'. /32 THEN 890 

COPY 

PRINT ?32.26:0 



The third type of variable table is also a BASIC program 
contributed by Dr. P. C. Holman of the University of 
Wisconsin-Stevens Point. It is a quick and easy screen- 
only table to keep track o^ numeric variables or alpha 
strings. The table is reproduced here followed by the 
program listing 













PROGRAMMING AID 










PROGRAM 


HAME__ 








PROCRA 
ERIC 


1MER 






. DATE 


ALPHA 








MUh 








A( 


' A9( 


^ AH 


-> A2< 


) A3( 


) A4( 


) A5< 


> A6< ) 


A7( 


) A8< 


^ A9< > 


A»< -> 


8C 


' B8C 


> Bl( 


) B2( 


J B3( 


> B4( 


) B3< 


^ 86< ) 


B7f 


) B8< 


/ B9( > 


BS> ' 


C( 


' C0< 


) Cl( 


> C2( 


' C3C 


) C4< 


) C5< 


) C6< > 


C7( 


) C8( 


' C9< > 


C»( > 


0< 


> O0< 


^ DK 


) D2( 


■> D3< 


) 04< 


) D5< 


) 06C ) 


07( 


5 D8< 


> 09( ) 


OSC ) 


E( 


; E0( 


> EIC 


' E2< 


) E3< 


) E4< 


) E5< 


) E6< ) 


E7< 


).E8( 


) E9«: -> 


E**; -> 


F( 


. F9( 


) Fl( 


) F2( 


) F3( 


.- F4( 


) F5< 


> Fb< ) 


F7( 


> F8< 


) F9( ) 


Ft( ■> 


G( 


) G9( 


) GI< 


> G2< 


) G3< 


^ G4< 


) G5< 


) G6( ) 


G7( 


> G8< 


> G9< ) 


G»< •■ 


H( 


^ H9< 


) NIC 


) H2( 


) H3< 


) H4< 


) H3( 


> H6( ) 


H7( 


> HS( 


^ H9< > 


HS< > 


If 


/ I0< 


) IK 


^ I2< 


) I3< 


) I4< 


) I5( 


) I6< > 


I7( 


) I8< 


) I9< ) 


I«( •> 


J^ 


> J8f 


) Jl< 


> J2( 


) J3( 


) J4< 


> J5< 


; J6< > 


J7( 


) J8( 


) J9< ) 


J*< > 


<( 


/ <&( 


) <\< 


) K2< 


) KK 


1 K4< 


) K3C 


> K6( •> 


K7< 


) K8< 


) KS< ) 


KJv' » 


L( 


> L8( 


> Ll< 


•> L2< 


) L3f 


> L4< 


) L5( 


) L6C ) 


L7( 


) L8< 


> L9< > 


L « •■ 


M( 


) N9( 


^ Ml( 


^ M2< 


) n3< 


> M4< 


) M3< 


) H6< ) 


M7< 


) «8< 


' M9< t 


M«( :> 


H< 


> N0( 


) NIC 


> N2< 


> N3( 


> N4< 


) N3< 


> H6< > 


N7f 


) N8< 


) N9( ) 


Ht<. ■> 


Q( 


) 08( 


> Olf 


^ 02< 


> 03f 


) 04< 


) 03( 


-> 06< ) 


07< 


) 08( 


' 09< ) 


0*( > 


P( 


> P9( 


) Pl< 


) P2< 


) P3< 


) P4( 


) P3( 


^ P6( ) 


P7< 


) P8< 


} P9< > 


P«( > 


Q(. 


-> Q9< 


) QIC 


> 02f 


> Q3< 


) Q4C 


) 03< 


) Q6C ) 


Q7< 


) Q8< 


> 09( ) 


Qf ( -i 


R( 


) R9< 


) Rl( 


) R2< 


> R3< 


) R4< 


) R3< 


) R6< ) 


R7< 


) R8< 


> R9< ) 


R«> 


Sc 


) S9f 


) SIC 


; S2< 


) S3f 


) S4( 


) S5( 


) S6( ) 


S7( 


) S8( 


) S9( ) 


Sf f '> 


X< 


> T8< 


) Tl.< 


) T2< 


) T3( 


> T4< 


) T5< 


) T6< ) 


.T7< 


) T8< 


> T9( > 


T«C •, 


u< 


) ue< 


) Ul ( 


) U2< 


) U3< 


) U4< 


? U5< 


) U6< ) 


U7< 


) U8( 


> U9C ) 


U«< > 


u< 


> U9< 


> UK 


) U2( 


> U3( 


) U4C 


) U3< 


> U6( ) 


V7( 


) U8( 


^ U9< ) 


Uf f > 


U( 


> U8< 


> Wl ( 


> H2( 


U3( 


> W4( 


) W5< 


> U6( ) 


H7( 


> M8( 


> U9( ) 


US( > 


X( 


) xec 


) XK 


> X2< 


X3< 


) X4C 


) X3< 


) X6< ) 


X7( 


) X8( 


) X9( > 


KS( ) 


Y< 


> Y9f 


) YK 


> Y2< 


Y3< 


> Y4< 


) Y5< 


> Y6< > 


Y7< 


) Y8< 


) Y9( ) 


Y»C ) 


Z< 


) 29( 


> m 


> Z2( 


23< 


> Z4( 


) 25C 


> Z6< ) 


27< 


> 28< 


) 29< ) 


ZfC ) 



CASE Condition and Parentheses, 
Brackets and Braces 

by Arnie Kaber 

When SET CASE (default) is in effect, the BASIC 
intepreter considers lower case letters equal to upper case 
letters in string comparisons. The following pairs of 
symbols are also considered equal. 

< >, c 3, < ) 

However, if SET NOCASE is specified, upper and lower 
case letters are not equal; and neither are these symbols. 
The following examples illustrate results in each case: 

LIS 

18« SET NOCASE 

119 IF 'CAeCa'-'CABO" THEN 399 

129 PRINT "THEY ARE NOT EQUAC' 

289 EMO 

38« PRINT "THEY ARE EQUAL' 

RUN 

THEY A«E NOT EQUAL 

LIS 

199 SET CASE 

119 IF "CABCl'-'fABO" THEN 399 
129 PRINT 'THEY ARE NOT EQUW." 
289 EHO 

389 PRINT "THEY ARE EQUAL- 
RUN 
TH£Y ARE EQUAL 

LIS 

199 SET NOCASE 

119 IF •<ABC>*»*ffl8C)' THEN 339 

128 PRINT 'THEY ARE NOT EQUAL* 

398 PfflNT 'THEY ARE EQUAL" 

THEY ARE HOT EQUAL 

LIS 

189 SET CASE 

118 IF •{AeC>'-"<A8C)" THEN 399 

129 PRINT 'THEY ARE HOT EQUAL" 
299 END 

389 PRINT 'THEY ARE EQUAL' 



Consequently, comparing strings which include 
parentheses, brackets and braces, may produce unan- 
ticipated results. 

However, in numeric operations, the 4051 converts 
brackets or braces to parentheses (or drops them if 
unnecessary). Therefore, invalid results due to these 
characters won't occur in numeric comparisons. 



For example. 



199 A-l/2-»-<2*3>-<C4-23/3>*<24/3) 

119 PR! A 

129 END 
138 



) 



iS Sf2 ^"^S ^S ** PROGRAM TO HELP YOU KEEP TRACK OF THE UARIABLES IN 
129 REM ANY PROGRAM. AS YOU USE A NUMERIC UARIA8LE OR ALPHA STRING 
139 REM FILL IN THE PARENTHESIS AND CIRCLE UHAT YOU HAUE USED («.». 
149 REH A2<23) OR A2<2,3) TO OIHENSIOW NUMERIC UARIABLES), OR <«.». 
159 REM A«<49) TO DIMENSION AN ALPHA STRING UARIABLE.) 
169 REH ALSO THEY CAN BE USED TO DEFINE UARIABLES NOT DIMENSIONED. 
179 REH <«.». LET A-A+l), <€.§. LET AfTHE") 
189 PAGE 

199 LET Lf'ABCDEFGHIJKLMNOPQRSTUUUXYZ" 
299 LET N*-'C9123436789' 

219 PRINT " PROCRAHMIHG AID " 

229 PRINT "JJ" 

239 PRINT • PROGRAM NAME PROGRAMMER 'j 

248 PRINT -DATE / / ' 

259 PRINT "J" 

269 PRINT ■ NUMERIC -t 

279 PRINT • ALPHA' 

289 PRINT 

299 FOR I-l TO LEH<Lf) 

399 LET A$»SEG<Lf, 1,1) 

318 FOR J-1 TO LENCNt) 

329 PRINT Afl 

339 LET B«-SEC<Nt, J, l> 

349 PRINT B«| '< ) "I 

359 NEXT J 

369 PRINT - "|A$r«< )' 

379 NEXT I 

388 END 

Whatever means you use to track your variables, include 
it in your documentation. Your program user will be 
forever grateful. 

Note: There are also rwo programs in the 4051 Applications Library to 
do variable cross-referencing for existing programs: 51/00-8002/0 and 
51/00-8003/0. 7 



LIS 

199 A-l/2*<2-»3)-(4-2)/3*24/'3 

119 PRINT A 

129 END 



INIT Rather Than CLOSE 

by Jay Beck 

When your 4907 file is open for read/ write operations 
(OPEN TESTFILE'';1,''F'',AS), a pointer in the 4907 
firmware indicates where the next item to be read/ written 
is to occur. When a program fails after reading part way 
through a file, the user should type INIT. This resets the 
pointer to the beginning of the file and closes it, keeping 
the original file intact. If a CLOSE is typed instead, the 
4907 will write an end-of-file mark at the current pointer 



location and close the file. Everything between the pointer 
and the end of the original file is lost. This problem does 
not occur if the file is opened in read-only or update access 
modes, ii-:^' i^^\ 



REM 290, 10 



200 GOTO 219 -^ 

219 REM Func tior. rt 

i 




(^^ 



Renumbering Doesn't Update 
Everything 

When a RENUMBER statement is executed, the target 
lines of any CALL statement are not updated. 



For example: 



2599 CALL "BAPPEN" , 3599 
2519 CALL "LINK", 4599 
3599 RE^ 
4599 RE^I 



PEMUriBEP 

LIS 



196 CALL "BAPPEN%3599 

119 GALL "LINK", 4599 

129 REM 

139 REM 



U500 is target line for BAPPEN) 
(4500 is target line for LINK) 



(120 is new target line for BAPPEN) 
(130 is new target line for LINK) 

Note that both target lines in renumbered statements 100 
and 1 10 still retain the original Hne numbers. 



(original target line number 110 
vanishes to be replaced with wrong 
line number leading to wrong 
target) 

If the initial renumber had begun with a line number 
higher than the non-existent target line, the original target 
line number would have remained: 

(line 1 10 is non-existent) 



147 GOTO lie 

231 REM Fare tion A 



REN 299. 19 



290 GOTO 119 -^ 

219 REM Func tion A 



(still non-existent but number intact) 

Or. retain correct target by inserting line 110 as a 
REMARK statement to hold it prior to renumbering: 

(line 1 10 is non-existent) 



147 GOTO 1 10 

231 REM Furicticn m 

lie REM Hold Target Liri« 



REN 109, 19 



109 REM Hold Target: Line 
119 GOTO \£' 



( 



129 REM Function A 

(different number but correct target) 

Xote: BASIC EDITOR and Formatted Listings ffl of the PRINTER 
PROGRAMS, both contained in PLOT 50 General Utility Programs, 
will tell you if you have any non-existent line references. 



Renumbering Might Update Wrong 
Line 

If you have code that references non-existent lines, before 
renumbering either insert those lines or renumber with 
higher values. This program illustrates results of not 
paying attention to this detail. 

(line 110 is non-existent) 



147 GOTO no 

231 REM Function A 



REM 188.19 



188 GOTO 119 -^ 

110 REM Function A 



(still refers to original target line 
1 10 but now it's the wrong target) 



Then, after more coding, 
renumber: 



you follow with another 



Variable Symbols Are Not Deleted 

Once a simple variable symbol has been entered into 
memory, it always takes up at least 13 bytes of space (5 in 
the table listing and 8 for the number). A DELETE of a 
variable will eliminate the value assigned to that symbol, 
but the symbol will remain in the table and the space will 
be reserved for the number. To save memory, re-use these 
symbols for new values when the old are no longer 
needed, rather than assigning new symbols. 

For example: 

380 FOR I«l TO 8 
319 GOSUB 788 
329 NEXT I 
339 FOR J»l TO 5 
348 GOSUB 998 
359 NEXT J 

Rather than using the new variable J, the variable I could 
have been reassigned. As it stands in the example, 1 and J 



( 



) 



are both in the symbol table, with only one being used. 
Refer to page 4-8 in the 4051 Graphic System Reference 
Manual for more detail. 



Two-Character Variables Desirable 

Using two-character variable names might save time if 
you plan to edit your program using the Editor ROM or 
an editor program.* Whereas, searching for a single 
character variable will result in unwanted text being 
picked out, searching for an alpha character coupled with 
a numeric will usually locate the desired variable. 

*5! .00-(S007iO. Text Editor, in the 4051 Applications Library, or 
4050 A08 BASIC EDITOR contained in PLO T 50 Gene ral Utilitv 
Programs, are two such programs available. >.-^ -- ~ 



) 



4051 Applications Library 
Program Abstracts 



Order 

Documentation and program listings of each program are 
available/or a nominal charge. Programs will be put on tape for a 
small recording fee per program plus the charge for the tape 
cartrid'^e. One tape will hold several programs. (The program 
material contained herein is supplied without warranty or 
representation of anv kind. Tektronix. Inc. assumes no respon- 
sibility and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part 
thereof.) 



Domestic U.S. Prices: 

Documentation and listings 
Recording Fee 
Tape Cartridge 



Contribute 



$15 per program 
2 per program 
26 per tape 



Contribute one program to the Library and receive three in 
e.xchange. Send in the membership card from your 4051 Graphic 
System Reference Manual to get the details. Or call us at (503) 
682-3411. ext. 2618. 



Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 



Outside U.S. 

Program contributions or orders outside the U.S. must be 
processed through the local Tektronix sales office or sent to one 
of the Libraries serving your area. See Library Addresses section. 



ABSTRACT NUMBER: 51/00-5202/0 

Title: NMR Calculation for a Three Spin System 

Authors: Tom Price and Dr. Jack Reid 

Lorillard Div. of Loews 

Greensboro, NC 
Memory Requirement: I6K 
Peripherals: Optional — 4631 
Optional — 4641 
Statements: 267 

This program calculates the spin-spin transition frequen- 
cies and relative intensities for a three spin Nuclear 
Magnetic Resonance (NMR) system. The energies of the 
eight possible energy states are calculated using the 
chemical shifts, in Hz, and coupling constants in Hz, 
entered from the keyboard. In the three spin system there 
are four possible energy levels. The first and fourth each 
contain one spin state; however, the second and third each 
contain three spin states. The energies of these states are 
used as the diagonals of two 3x3 matrices. The off 
diagonal elements are calculated from the respective 
coupling constants. The two matrices are diagonalized. 
by the method of Jacobi CD© and the intensities 
calculated by identical diagonaiization operations on an 
identity matrix. The final transition frequencies are 
calculated by the difference in the energies between 
adjacent energy levels. 

The output is displayed as either a listing and an NMR 
line spectrum on the graphic terminal or a listing on the 
printer. 



ABSTRACT NUMBER: 51/00-8018/0 

Title: Text FORMATting 

Author: Bruce Clarkson 

Science Applications, Inc. 
Raleigh, NC 
Memory Requirement: 16K (8K w/o comments) 
Peripherals: Option 1 Data Communications Interface 

or 

Option 10 RS-232 Printer Interface 

4051R06 Editor ROM 

Hard Copy Terminal 
Statements: 21 1 

FORMAT provides formatted text output similar to the 
University of Waterloo's SCRIPT program for 
System/ 360. Commands imbedded in the te.xt file 
(typically created with the TEKTRONIX Editor ROM) 
together with execution time parameters gives complete 
control over the format of the printed document. Options 
include right margin justification (padding with blanks), 
page size control, page numbering, indention, spacing, 
centering, etc. Any standard ASCII RS-232 compatible 
output device may be used (example: DEC-WRITER 
terminal). 



ABSTRACT NUMBER: 51/07-8019/0 

Title: 4907 File Manager Based Mailing List 

Author: Brian Diehm 

Tektronix, Inc. 
Memory Requirement: 16K 
Peripherals: 4907 File Manager 

Optional— 4641 Printer (Recommended) 
Statements: 927 

This program uses the 4907 HLE MANAGER to 
maintain and print mailing lists for up to 50 different 
publications. Subscribers to all the lists are drawn from a 
single master subscriber file. Provision is included to add, 
delete, edit and list subscribers or subscriber groups by a 
last name key. Up to four lines of address information 
may be used. 

Output files may be created for any of the publications, 
and this file is in zip code order. This file may be used by 
the program to drive the 4641 Printer to print a mailing 
list of stick-on labels. 

Two versions of the program are included. Only the 
minimum configuration version can be used on 16K 
machines. This version may also be best suited to very 
large output files, as the only limitation to their size is 
available disc space. The second version runs faster when 
creating output files by keeping a copy of the file's link 
pointers in memory. This nets a 40% reduction of time 
required to create output files. However, the length of 
output file that may be created is Umited by the memory 
available to store the links. For a 32K 4051, up to 1000 
entries may be filed; for a 24K machine, up to 500 entries 
may be filed. 

In both versions, the size of the subscriber file is limited 
only by the available disc space. 



ABSTRACT NUMBER: 51/00-0501/0 

Title: Inventory/Production Modeling I 

Author: Dennis R. Heckman 

Tektronix, Inc. 
Memory Requirement: 16K 
Peripherals: Optional — 4662 Plotter 
Optional^ — 4641 Printer 
Statements: 333 

This program is designed to naively represent a Manufac- 
turing Operation producing one product. As inputs the 
program requires: 

Ratios and Constants 

An average production rate per worker 
Total facility capacity 
Desired backlog time 



An average material waste ratio 
An average lost order rate 
Desired inventory risk factor 

Initial Settings 

Initial inventory 
Initial order backlog 
Initial production 
Initial shipments 

Order Entry 

The number of iterations 

The initial order level 

Either: 

The growth rate 

or 

The iteration number for a step change 

The amount of the change 

A series of equations are then used to model the various 
relationships while the order quantities are derived from a 
random number generator. The Work Force and 
Materials' Inventory required for production at each 
iteration may be output. 

ABSTRACT NUMBER: 51/00-5403/0 

Title: Sound Spectrum PRESENTATION 

Author: Norman D. Taylor 
Memory Requirement: 16K 
Peripherals: 4631 Hard Copy Unit 
Rockland FFT512/S 
Statements: 126 

This program reads the values for a one-third octave 
sound spectrum from a Rockland Analyzer, calculates 
Overall Sound Pressure Level (OASPL), plots this data 
on the 4051 and generates a hard copy. 



f 
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The program interrogates the Analyzer to determine the 
frequency range that has been analyzed and the gain 
settings, both coarse and fine. Then the coordinate axes 
are drawn accordingly. The Y-axis is plotted in decibels 
(dB) and the X-axis is frequency in Hertz (Hz). Next, the 
spectrum is read in from the analyzer. As it is read and 
plotted, the OASPL is calculated. Finally, a hard copy of 
the finished plot is generated. 

An option is included to allow a series of OASPLs to be 
calculated (for instance, a line of microphones) and a 
listing displayed. 



ABSTRACT NUMBER: 51/00-9508/1 

Title: Dashed Lines 

Author: Bob Ross 
Memory Requirement: 8K 
Peripherals: Any Plotting Device 
Statements: 154 

This is a consolidation of programs 51 00-9508. 0, 
51 00-9509 and 51 00-9510^0. 

Three subroutines draw dashed lines for: 

1) a Y array with X values stepped linearly from a 
starting to an ending value: 



2) points stored in X and Y arrays; 

3) a sequence of X and Y values. 

The dashes are a constant length regardless of the 
viewport and window chosen. The dash length and ratio 
of dash to dash plus space are selectable. The line can start 
and end on a full dash or full space. 



ABSTRACT NUMBER: 51/07-9522/0 

Title: 4907 U.S. Map and Segmented Data Base Win- 
dowing Routine 

Author: Leslie L. Brabetz 

Tektronix, Inc. 
Memory Requirement: 32K, Level 5 Firmware 
Peripherals: 4907 FILE MANAGER 

4952 Joystick 
Statements: 956 plus 99 binary data files* 

Two programs illustrate and employ the unique 
capabilities of the Tektronix 4907 FILE MANAGER. 

U.S. Map 

^ The U.S. Map program demonstrates accessing and 

•^ displaying a segmented data base existing on the 4907 

FILE MANAGER, as opposed to reading and clipping 

an entire serial data base in order to view a smaller 



) 



portion. The master data base is read and a highly 
detailed map of the continental United States, with grid, 
is displayed on the 4051 graphic screen. 

The user is then requested to select a lower left corner and 
upper right corner using the 4952 Joystick. Only those 
segment files containing the selected portions of the map 
are read, permitting rapid display. 

The routines included in the U.S. Map program are: disc 
formatting, transfer from tape to disc of the 96 segment 
data files, master data base, and routine to display the 
map and its segments. 

Windowing Routine 

This program creates a segmented data base from a 
master data base (the U.S. Map in this case) to 
demonstrate the 4907 FILE MANAGER capabilities. It 
performs random access of files from the disc. A series of 
articles in TEKniques (Vol. 1 No. 10, and Vol. 2 Nos. 1 
and 2) describe the theory and operation of the 
demonstration. 

The program allows definition of a rectangular data 
window. A master file may be read in, and the vectors 
which begin and end or intersect the data window are 
stored in a segment file. The coordinates of intersection 
with the boundaries are calculated and stored in the 
segment file. On a graphics display, this operation is 
called "windowing"; hence, this program windows on 
data bases. The master data file must be in the form of 
arrays, with the number of coordinate pairs N, then the 
coordinate arrays X, Y. 

N, X,, X. X., Yi, Yz Yn 

Output segment files are created with the same format. 

*T\vo cartridge tapes required. 

ABSTRACT NUMBER: 51/00-9523/0 

Title: Data Graphing 

Author: Chuck Eng 

Tektronix, Inc. 

Memory Requirement: 32K 

Peripherals: Optional — 4631 Hard Copy Unit 
Optional— 4662 Plotter 
Optional— 4051 R05 Binary ROM 

Statements: 926 

Create graphs quickly and easily with Data Graphing. 
Computer expertise is not required since the user is 
prompted for the minimal inputs. Up to six curves may be 
created from: 

Keyboard data input 

The sum of all previous curves 
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The average of all previous curves 
The cumulative sum of the previous curve 
The least squares fit of the previous curve 
Data on a data file 

X-axis values may be user-input or auto-sequence. Graph 
de_sign allows selection of: 

The type of curve (bar, solid, phantom, dash) with 
variations of each 

Grid 

Labels 

Hidden line removal 

Scaling of Y-axis 

Saving data for curves and or graph. 

Other functions allow changes in curve data or graph 
parameters, listing of data, drawing to the 405 1 screen or 
4662 Plotter and examples. 

The program includes the menu file. Binary and ASCII 
programs and four sample data tiles. Additional data files 
must be pre-MARked for storage of curve and graph 
data. IT T"^"^ 



4051 Applications Libraries 

Africa, Europe, Middle East 

4051 Appiications Library 

Tektronix Datatek N,V. 

P.O. Box 159 

Badhoevedorp, The Netherlands 

Australia 

4051 Appiications Library 

Tektronix Australia Pty. Limited 

Sydney 

80 Waterloo Road 

North Ryde, N.S.W. 2113 

Canada 

4051 Applications Library 
Tektronix Canada Ltd. 
P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

Ms. Bey Brandon, 73-31 2 

Export Marketing 

Tektronix, Inc. 

P.O. Box 500 

Beaverton. Oregon 97077 

U.S.A. 

Japan 

4051 Applications Library 
Sony. Tektronix Corporation 

9-31 Kitashinagawa-5 
Tokyo 1 41 Japan 

United States 

4051 Applications Library 

Tektronix. Inc. 

Group 451 

P.O. Box 500 

Beaverton, Oregon 97077 
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TEKniques. the 4051 Applications Library Newsletter, is 
published by the Information Display Group of Tektronix, 
Inc., Group 451, P.O. Box 500, Beaverton. Oregon 97077. It 
is distributed to TEKTRONIX 4051 users and mennbers of 
the 4051 Applications Library. 

Publisher Ken Cramer 

Managing Editor Patricia Kelley 

Editor Terence Davis 

Graphic Designer Mark Woods 

Circulation Rory Gugliotta 
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